home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_8.txt < prev    next >
Text File  |  1986-09-30  |  17KB  |  317 lines
  1. # near model CODE resource
  2. # jump table entries: 3280-3282 (3 of them)
  3. export_410:
  4. 00000000  526D FE92                addq.w     [A5 - 0x16E], 1
  5. 00000004  48E7 C090                movem.l    -[A7], D0,D1,A0,A3
  6. 00000008  206D ED28                movea.l    A0, [A5 - 0x12D8]
  7. label0000000C:
  8. 0000000C  2648                     movea.l    A3, A0
  9. 0000000E  4EAD 068A                jsr        [A5 + 0x68A /* export_205 */]
  10. 00000012  4A87                     tst.l      D7
  11. 00000014  6760                     beq        +0x62 /* 00000076 */
  12. 00000016  4EAD 0682                jsr        [A5 + 0x682 /* export_204 */]
  13. 0000001A  0C47 FFFD                cmpi.w     D7, 0xFFFD
  14. 0000001E  6714                     beq        +0x16 /* 00000034 */
  15. 00000020  3207                     move.w     D1, D7
  16. 00000022  3E3C 8001                move.w     D7, 0x8001
  17. 00000026  4EAD 03E2                jsr        [A5 + 0x3E2 /* export_120 */]
  18. 0000002A  421B                     clr.b      [A3]+
  19. 0000002C  3E01                     move.w     D7, D1
  20. 0000002E  4EAD 03E2                jsr        [A5 + 0x3E2 /* export_120 */]
  21. 00000032  6008                     bra        +0xA /* 0000003C */
  22. label00000034:
  23. 00000034  7E01                     moveq.l    D7, 0x01
  24. 00000036  4EAD 03E2                jsr        [A5 + 0x3E2 /* export_120 */]
  25. 0000003A  421B                     clr.b      [A3]+
  26. label0000003C:
  27. 0000003C  2F0B                     move.l     -[A7], A3
  28. 0000003E  202D ED24                move.l     D0, [A5 - 0x12DC]
  29. 00000042  9088                     sub.l      D0, A0
  30. 00000044  6512                     bcs        +0x14 /* 00000058 */
  31. 00000046  5380                     subq.l     D0, 1
  32. 00000048  650E                     bcs        +0x10 /* 00000058 */
  33. 0000004A  2E00                     move.l     D7, D0
  34. 0000004C  4847                     swap.w     D7
  35. label0000004E:
  36. 0000004E  16D8                     move.b     [A3]+, [A0]+
  37. 00000050  51C8 FFFC                dbf        D0, -0x6 /* 0000004E */
  38. 00000054  51CF FFF8                dbf        D7, -0xA /* 0000004E */
  39. label00000058:
  40. 00000058  205F                     movea.l    A0, [A7]+
  41. label0000005A:
  42. 0000005A  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  43. 0000005E  6004                     bra        +0x6 /* 00000064 */
  44. label00000060:
  45. 00000060  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  46. label00000064:
  47. 00000064  0C40 001B                cmpi.w     D0, 0x1B
  48. 00000068  6604                     bne        +0x6 /* 0000006E */
  49. 0000006A  5888                     addq.l     A0, 4
  50. 0000006C  60EC                     bra        -0x12 /* 0000005A */
  51. label0000006E:
  52. 0000006E  4A40                     tst.w      D0
  53. 00000070  66EE                     bne        -0x10 /* 00000060 */
  54. 00000072  5288                     addq.l     A0, 1
  55. 00000074  6096                     bra        -0x68 /* 0000000C */
  56. label00000076:
  57. 00000076  2648                     movea.l    A3, A0
  58. 00000078  4EAD 07E2                jsr        [A5 + 0x7E2 /* export_248 */]
  59. 0000007C  4CDF 0903                movem.l    D0,D1,A0,A3, [A7]+
  60. 00000080  536D FE92                subq.w     [A5 - 0x16E], 1
  61. 00000084  4E75                     rts
  62. export_411:
  63. 00000086  526D FE92                addq.w     [A5 - 0x16E], 1
  64. 0000008A  48E7 FEF0                movem.l    -[A7], D0,D1,D2,D3,D4,D5,D6,A0,A1,A2,A3
  65. 0000008E  246D ED28                movea.l    A2, [A5 - 0x12D8]
  66. 00000092  240A                     move.l     D2, A2
  67. label00000094:
  68. 00000094  2E3C 0000 015E           move.l     D7, 0x15E
  69. 0000009A  202D ED0C                move.l     D0, [A5 - 0x12F4]
  70. 0000009E  90AD ED10                sub.l      D0, [A5 - 0x12F0]
  71. 000000A2  B087                     cmp.l      D0, D7
  72. 000000A4  650E                     bcs        +0x10 /* 000000B4 */
  73. 000000A6  2002                     move.l     D0, D2
  74. 000000A8  908A                     sub.l      D0, A2
  75. 000000AA  B087                     cmp.l      D0, D7
  76. 000000AC  640E                     bcc        +0x10 /* 000000BC */
  77. 000000AE  6100 00DE                bsr        +0xE0 /* 0000018E */
  78. 000000B2  6708                     beq        +0xA /* 000000BC */
  79. label000000B4:
  80. 000000B4  4EAD 058A                jsr        [A5 + 0x58A /* export_173 */]
  81. 000000B8  4EED 040A                jmp        [A5 + 0x40A /* export_125 */]
  82. label000000BC:
  83. 000000BC  2042                     movea.l    A0, D2
  84. 000000BE  6100 01FA                bsr        +0x1FC /* 000002BA */
  85. 000000C2  2807                     move.l     D4, D7
  86. 000000C4  6700 00A0                beq        +0xA2 /* 00000166 */
  87. 000000C8  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  88. 000000CC  0C40 00AF                cmpi.w     D0, 0xAF
  89. 000000D0  6700 0084                beq        +0x86 /* 00000156 */
  90. 000000D4  4EAD 0412                jsr        [A5 + 0x412 /* export_126 */]
  91. 000000D8  6510                     bcs        +0x12 /* 000000EA */
  92. 000000DA  6100 00A0                bsr        +0xA2 /* 0000017C */
  93. 000000DE  0C10 003A                cmpi.b     [A0], 0x3A /* ':' */
  94. 000000E2  6662                     bne        +0x64 /* 00000146 */
  95. 000000E4  14FC 0002                move.b     [A2]+, 0x2
  96. 000000E8  6060                     bra        +0x62 /* 0000014A */
  97. label000000EA:
  98. 000000EA  4A40                     tst.w      D0
  99. 000000EC  676C                     beq        +0x6E /* 0000015A */
  100. 000000EE  4EAD 0412                jsr        [A5 + 0x412 /* export_126 */]
  101. 000000F2  6506                     bcs        +0x8 /* 000000FA */
  102. 000000F4  6100 0086                bsr        +0x88 /* 0000017C */
  103. 000000F8  604C                     bra        +0x4E /* 00000146 */
  104. label000000FA:
  105. 000000FA  0C40 00AF                cmpi.w     D0, 0xAF
  106. 000000FE  6756                     beq        +0x58 /* 00000156 */
  107. 00000100  0C40 008D                cmpi.w     D0, 0x8D
  108. 00000104  660A                     bne        +0xC /* 00000110 */
  109. 00000106  C989                     exg        D4, A1
  110. 00000108  4EAD 06D2                jsr        [A5 + 0x6D2 /* export_214 */]
  111. 0000010C  C989                     exg        D4, A1
  112. 0000010E  6040                     bra        +0x42 /* 00000150 */
  113. label00000110:
  114. 00000110  0C40 001B                cmpi.w     D0, 0x1B
  115. 00000114  6616                     bne        +0x18 /* 0000012C */
  116. 00000116  6100 00B8                bsr        +0xBA /* 000001D0 */
  117. 0000011A  5888                     addq.l     A0, 4
  118. 0000011C  2408                     move.l     D2, A0
  119. 0000011E  615C                     bsr        +0x5E /* 0000017C */
  120. 00000120  14FC 0003                move.b     [A2]+, 0x3
  121. 00000124  2E00                     move.l     D7, D0
  122. 00000126  4EAD 06C2                jsr        [A5 + 0x6C2 /* export_212 */]
  123. 0000012A  6024                     bra        +0x26 /* 00000150 */
  124. label0000012C:
  125. 0000012C  0C40 0022                cmpi.w     D0, 0x22 /* '\"' */
  126. 00000130  660E                     bne        +0x10 /* 00000140 */
  127. label00000132:
  128. 00000132  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  129. 00000136  4A40                     tst.w      D0
  130. 00000138  6720                     beq        +0x22 /* 0000015A */
  131. 0000013A  0C40 0022                cmpi.w     D0, 0x22 /* '\"' */
  132. 0000013E  66F2                     bne        -0xC /* 00000132 */
  133. label00000140:
  134. 00000140  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  135. 00000144  60A4                     bra        -0x5A /* 000000EA */
  136. label00000146:
  137. 00000146  14FC 0001                move.b     [A2]+, 0x1
  138. label0000014A:
  139. 0000014A  2E00                     move.l     D7, D0
  140. 0000014C  4EAD 06B2                jsr        [A5 + 0x6B2 /* export_210 */]
  141. label00000150:
  142. 00000150  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  143. 00000154  6094                     bra        -0x6A /* 000000EA */
  144. label00000156:
  145. 00000156  2044                     movea.l    A0, D4
  146. 00000158  6002                     bra        +0x4 /* 0000015C */
  147. label0000015A:
  148. 0000015A  5288                     addq.l     A0, 1
  149. label0000015C:
  150. 0000015C  6100 0072                bsr        +0x74 /* 000001D0 */
  151. 00000160  2408                     move.l     D2, A0
  152. 00000162  6000 FF30                bra        -0xCE /* 00000094 */
  153. label00000166:
  154. 00000166  421A                     clr.b      [A2]+
  155. 00000168  421A                     clr.b      [A2]+
  156. 0000016A  421A                     clr.b      [A2]+
  157. 0000016C  264A                     movea.l    A3, A2
  158. 0000016E  4EAD 07E2                jsr        [A5 + 0x7E2 /* export_248 */]
  159. 00000172  4CDF 0F7F                movem.l    D0,D1,D2,D3,D4,D5,D6,A0,A1,A2,A3, [A7]+
  160. 00000176  536D FE92                subq.w     [A5 - 0x16E], 1
  161. 0000017A  4E75                     rts
  162. fn0000017C:
  163. 0000017C  2F03                     move.l     -[A7], D3
  164. 0000017E  6100 0050                bsr        +0x52 /* 000001D0 */
  165. 00000182  2608                     move.l     D3, A0
  166. 00000184  4EAD 10C2                jsr        [A5 + 0x10C2 /* export_532 */]
  167. 00000188  2408                     move.l     D2, A0
  168. 0000018A  261F                     move.l     D3, [A7]+
  169. 0000018C  4E75                     rts
  170. fn0000018E:
  171. 0000018E  48E7 0470                movem.l    -[A7], D5,A1,A2,A3
  172. 00000192  2A3C 0000 2000           move.l     D5, 0x2000 /* ' \0' */
  173. 00000198  202D ED0C                move.l     D0, [A5 - 0x12F4]
  174. 0000019C  90AD ED10                sub.l      D0, [A5 - 0x12F0]
  175. 000001A0  E288                     lsr        D0, 1
  176. label000001A2:
  177. 000001A2  BA80                     cmp.l      D5, D0
  178. 000001A4  650E                     bcs        +0x10 /* 000001B4 */
  179. 000001A6  E28D                     lsr        D5, 1
  180. 000001A8  0C85 0000 015E           cmpi.l     D5, 0x15E
  181. 000001AE  64F2                     bcc        -0xC /* 000001A2 */
  182. 000001B0  7001                     moveq.l    D0, 0x01
  183. 000001B2  6016                     bra        +0x18 /* 000001CA */
  184. label000001B4:
  185. 000001B4  266D ED24                movea.l    A3, [A5 - 0x12DC]
  186. 000001B8  224B                     movea.l    A1, A3
  187. 000001BA  D7C5                     add.l      A3, D5
  188. 000001BC  2442                     movea.l    A2, D2
  189. 000001BE  4EAD 07E2                jsr        [A5 + 0x7E2 /* export_248 */]
  190. 000001C2  4EAD 0742                jsr        [A5 + 0x742 /* export_228 */]
  191. 000001C6  D485                     add.l      D2, D5
  192. 000001C8  7000                     moveq.l    D0, 0x00
  193. label000001CA:
  194. 000001CA  4CDF 0E20                movem.l    D5,A1,A2,A3, [A7]+
  195. 000001CE  4E75                     rts
  196. fn000001D0:
  197. 000001D0  2242                     movea.l    A1, D2
  198. 000001D2  6002                     bra        +0x4 /* 000001D6 */
  199. label000001D4:
  200. 000001D4  14D9                     move.b     [A2]+, [A1]+
  201. label000001D6:
  202. 000001D6  B1C9                     cmpa.l     A0, A1
  203. 000001D8  62FA                     bhi        -0x4 /* 000001D4 */
  204. 000001DA  4E75                     rts
  205. export_412:
  206. 000001DC  526D FE92                addq.w     [A5 - 0x16E], 1
  207. 000001E0  48E7 FEFA                movem.l    -[A7], D0,D1,D2,D3,D4,D5,D6,A0,A1,A2,A3,A4,A6
  208. 000001E4  103C 00F9                move.b     D0, 0xF9
  209. 000001E8  5301                     subq.b     D1, 1
  210. 000001EA  1A01                     move.b     D5, D1
  211. 000001EC  670A                     beq        +0xC /* 000001F8 */
  212. 000001EE  7000                     moveq.l    D0, 0x00
  213. 000001F0  4EAD 0C9A                jsr        [A5 + 0xC9A /* export_399 */]
  214. 000001F4  103C 00F8                move.b     D0, 0xF8
  215. label000001F8:
  216. 000001F8  4EAD 0062                jsr        [A5 + 0x62 /* export_8 */]
  217. 000001FC  206D ED28                movea.l    A0, [A5 - 0x12D8]
  218. label00000200:
  219. 00000200  2C48                     movea.l    A6, A0
  220. 00000202  49ED EE8B                lea.l      A4, [A5 - 0x1175]
  221. 00000206  6100 00B2                bsr        +0xB4 /* 000002BA */
  222. 0000020A  4A87                     tst.l      D7
  223. 0000020C  6700 0082                beq        +0x84 /* 00000290 */
  224. 00000210  2647                     movea.l    A3, D7
  225. label00000212:
  226. 00000212  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  227. label00000216:
  228. 00000216  4A40                     tst.w      D0
  229. 00000218  6724                     beq        +0x26 /* 0000023E */
  230. 0000021A  0C40 0001                cmpi.w     D0, 0x1
  231. 0000021E  674E                     beq        +0x50 /* 0000026E */
  232. 00000220  0C40 0002                cmpi.w     D0, 0x2
  233. 00000224  6748                     beq        +0x4A /* 0000026E */
  234. 00000226  0C40 0003                cmpi.w     D0, 0x3
  235. 0000022A  6728                     beq        +0x2A /* 00000254 */
  236. 0000022C  0C40 00AF                cmpi.w     D0, 0xAF
  237. 00000230  6606                     bne        +0x8 /* 00000238 */
  238. 00000232  204B                     movea.l    A0, A3
  239. 00000234  5388                     subq.l     A0, 1
  240. 00000236  6006                     bra        +0x8 /* 0000023E */
  241. label00000238:
  242. 00000238  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  243. 0000023C  60D8                     bra        -0x26 /* 00000216 */
  244. label0000023E:
  245. 0000023E  6170                     bsr        +0x72 /* 000002B0 */
  246. 00000240  18D8                     move.b     [A4]+, [A0]+
  247. 00000242  47ED EE8B                lea.l      A3, [A5 - 0x1175]
  248. 00000246  6100 0086                bsr        +0x88 /* 000002CE */
  249. label0000024A:
  250. 0000024A  B9CB                     cmpa.l     A4, A3
  251. 0000024C  63B2                     bls        -0x4C /* 00000200 */
  252. 0000024E  101B                     move.b     D0, [A3]+
  253. 00000250  6152                     bsr        +0x54 /* 000002A4 */
  254. 00000252  60F6                     bra        -0x8 /* 0000024A */
  255. label00000254:
  256. 00000254  615A                     bsr        +0x5C /* 000002B0 */
  257. 00000256  18FC 001B                move.b     [A4]+, 0x1B
  258. 0000025A  18FC 0000                move.b     [A4]+, 0x0
  259. 0000025E  18FC 0000                move.b     [A4]+, 0x0
  260. 00000262  18FC 0000                move.b     [A4]+, 0x0
  261. 00000266  5288                     addq.l     A0, 1
  262. 00000268  4EAD 068A                jsr        [A5 + 0x68A /* export_205 */]
  263. 0000026C  600A                     bra        +0xC /* 00000278 */
  264. label0000026E:
  265. 0000026E  6140                     bsr        +0x42 /* 000002B0 */
  266. 00000270  5288                     addq.l     A0, 1
  267. 00000272  5786                     subq.l     D6, 3
  268. 00000274  4EAD 0682                jsr        [A5 + 0x682 /* export_204 */]
  269. label00000278:
  270. 00000278  3007                     move.w     D0, D7
  271. 0000027A  2C4A                     movea.l    A6, A2
  272. 0000027C  4EAD 042A                jsr        [A5 + 0x42A /* export_129 */]
  273. 00000280  DC87                     add.l      D6, D7
  274. 00000282  5387                     subq.l     D7, 1
  275. label00000284:
  276. 00000284  18DA                     move.b     [A4]+, [A2]+
  277. 00000286  51CF FFFC                dbf        D7, -0x6 /* 00000284 */
  278. 0000028A  244E                     movea.l    A2, A6
  279. 0000028C  2C48                     movea.l    A6, A0
  280. 0000028E  6082                     bra        -0x7C /* 00000212 */
  281. label00000290:
  282. 00000290  7C02                     moveq.l    D6, 0x02
  283. label00000292:
  284. 00000292  7000                     moveq.l    D0, 0x00
  285. 00000294  610E                     bsr        +0x10 /* 000002A4 */
  286. 00000296  51CE FFFA                dbf        D6, -0x8 /* 00000292 */
  287. 0000029A  4CDF 5F7F                movem.l    D0,D1,D2,D3,D4,D5,D6,A0,A1,A2,A3,A4,A6, [A7]+
  288. 0000029E  536D FE92                subq.w     [A5 - 0x16E], 1
  289. 000002A2  4E75                     rts
  290. fn000002A4:
  291. 000002A4  4A05                     tst.b      D5
  292. 000002A6  6704                     beq        +0x6 /* 000002AC */
  293. 000002A8  4EAD 0CA2                jsr        [A5 + 0xCA2 /* export_400 */]
  294. label000002AC:
  295. 000002AC  4EED 0062                jmp        [A5 + 0x62 /* export_8 */]
  296. fn000002B0:
  297. 000002B0  B1CE                     cmpa.l     A0, A6
  298. 000002B2  6304                     bls        +0x6 /* 000002B8 */
  299. 000002B4  18DE                     move.b     [A4]+, [A6]+
  300. 000002B6  60F8                     bra        -0x6 /* 000002B0 */
  301. label000002B8:
  302. 000002B8  4E75                     rts
  303. fn000002BA:
  304. 000002BA  C14B                     exg        A0, A3
  305. 000002BC  4EAD 0662                jsr        [A5 + 0x662 /* export_200 */]
  306. 000002C0  3C07                     move.w     D6, D7
  307. 000002C2  0246 03FF                andi.w     D6, 0x3FF
  308. 000002C6  4EAD 075A                jsr        [A5 + 0x75A /* export_231 */]
  309. 000002CA  C14B                     exg        A0, A3
  310. 000002CC  4E75                     rts
  311. fn000002CE:
  312. 000002CE  4EAD 0662                jsr        [A5 + 0x662 /* export_200 */]
  313. 000002D2  0247 FC00                andi.w     D7, 0xFC00
  314. 000002D6  8E46                     or.w       D7, D6
  315. 000002D8  4EAD 06CA                jsr        [A5 + 0x6CA /* export_213 */]
  316. 000002DC  4E75                     rts
  317.